perm filename BMAK.F4[CMS,LCS] blob sn#093943 filedate 1974-03-23 generic text, type T, neo UTF8
00100	3	TYPE 1
00200	1	FORMAT(' TYPE IN 3 NUMS'//)
00300		ACCEPT 4,L,M,N
00400	4	FORMAT(3I)
00500		CALL JOKES(L,M,N)
00600		TYPE 5,L,M,N
00700	5	FORMAT(I)
00800		GO TO 3
00900		END